10 M=64:PRINT"[147][204][207][193][196][201][206][199] [216][196][207][211]"
20 M$="C":IFM=64THENM$="A"
30 FORQ=150TO230STEP10:C=0:PRINT".";:
40 READADD$,MEM$,CSUM
50 H$=ADD$:GOSUB140:ADD=D
60 H$=LEFT$(MEM$,2):IFH$=""GOTO110
70 IFLEFT$(MEM$,1)="*"THENH$=M$+RIGHT$(H$,1):R=1
80 MEM$=MID$(MEM$,3)
90 GOSUB140:POKEADD,D:IFR=0THENC=C+D
100 ADD=ADD+1:R=0:GOTO60
110 IFCSUM<>CTHENPRINT"ERROR IN LINE";Q:END
111 NEXT
112 PRINT:PRINT:PRINT"[201]NSERT THE INITIALIZED DISK WHICH IS TO"
114 PRINT"CONTAIN [216][196][207][211].  [208]RESS A KEY WHEN READY."
115 PRINT"           <'Q' TO [197]XIT>"
116 POKE198,0:WAIT198,1:GETK$:POKE198,0
118 IFK$="Q"ORK$="[209]"THEN63000
120 PRINT"[211]AVING [216][196][207][211] ..."
130 POKE43,58:POKE44,3:POKE45,0:POKE46,4:SAVE"XDOS",8,1
131 POKE44,8:POKE43,1:POKE45,007:           POKE46,14:CLR
133 PRINT"[215]OULD YOU LIKE ANOTHER ?";
134 POKE198,0:WAIT198,1:GETA$:IFA$<>"N"ANDA$<>"Y"THENPOKE53280,RND(1)*15:GOTO134
135 PRINTA$:IFA$="Y"THEN112
136 GOTO63000
140 D=0:FORI=1TOLEN(H$):J=ASC(MID$(H$,I,1))-48
145 D=16*D+J+(J>9)*7:NEXT:RETURN
150 DATA33C,AD050385FDA9038D0503AD040385FCA9518D040360AD0002,2122
160 DATA354,C926F0036CFC00A201E8BD0002C921B0F8CA86FB2044*6A9,2942
170 DATA36C,002090FFA90EA208A00020BAFFA5FBA201A00220BDFFA900,2803
180 DATA384,A62BA42C865F846020D5FF9004AA4C37*4862D842E862F84,2493
190 DATA39C,3086318432A900A02791318810FBA006B9F80391318810F8,2574
200 DATA3B4,A200A008E88A9131C8A902913188CAE8BD0002C921B0F848,2950
210 DATA3CC,8A38F131889131C8C8C8C868D0DEA9281865319002E63285,3090
220 DATA3E4,31208E*62033*5AD0102C924D0034CC3*64CAE*741D22800,1766
230 DATA3FC,01000B,12
63000 REM  CONNECT TO LOADSTAR
63002 PRINT"[147] [205]AKE SURE YOUR [204][207][193][196][211][212][193][210] DISK IS IN THE"
63004 PRINT"DRIVE.  [208]RESS A KEY WHEN YOU'RE READY."
63006 POKE198,0:WAIT198,1:POKE198,0
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END